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AUGUST ives 


THE GREATER CLEVELAND 
SINCLAIR USERS GROUP 
WELCOMES ALL OQHIOANS 


DEDICATED TO COMPUTER 


PROGRAMMING, LEARNING 


TS-2668 Fi 
AND MODIFICATION 2. ete 
SPECTRUM 
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aes r - 
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base ite” ae - 


WEST SIDE GROUF MEETS AT GETHSEMANE LUTHERAN CHURCH 
1456@ MADISON AVE. LAKEWOOD, OHIO 7:28 P.M. 
EVERY THIRD FRIDAY EACH MONTH (EXCEPT DECEMBER) 
CONTACT: DICK SIEG (216) 423-4387 


EAST SIDE GROUF MEETS AT THE EUCLID SQUARE MALL 
IN THE EVUCLIDIAN ROOM 73:22 P.M, 
EVERY FIRST FRIDAY EACH MONTH 
CONTACT: MAX SCHOENFELD (216) 371-1096 


A short note to our friends frow other newsletters and Ragazines. You are welcone to use any of our paterial, news, adds, or prograns 
YOUS (1) Tell where it cave fron (RANTOP Cleveland, Ohio) and (2) The author's nape that wrote the article. We would appreciate it if 
you would send us a copy of the newsletter that it appeared in! Unless otherwise notified we will do the sare. 

THAHK YOU FOR YOUR INTEREST IH OUR KEWSLETTER / 
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SINCLAIR RESEARCH and SIR CLIVE 

Sinclair Research has been 
purchased by Robert Maxwell, 
owner of the London Daily 
Mirror. Maxwell invested ta 
million for 75% of tne Company- 
Sir Clive retains 15% and will 
be a advisor in R & D. With the 
newspaper ties, maybe Sinclair 
will be treated more fairly by 
the media. 

TIMEX verses TIMEX. 

Rumers say that Timex USA 
objected to Timex Portugal ’s 
plans to market under the Timex 
logo in the US. How this will 
be resolved is unknown at this 
time. 

Two venders, English Micro 
Connection and Zebra Systems 
have made arrangements to 
import the Portugal Disk Drives 
under their own logos. They 
both report that their initial 
orders, are already sold out, 
and that they expect to start 
shipping in mid August. As the 
Timex Fortugal Plant will be 
closed in August for vacation, 
additional shipments may take 
a couple of months. 

And speaking of vacations, 
the Zebra Systems HES is off 
line for the month of August. 
MORE VENDOR _INFO. 

Speedy Soft has sent out a 
new catalog. 

The Aerco Disk Drive System 
is now available. TS Connection 
in Cincinnati has a system 
running, with good results. 
They will also sell you one. 

The John Oliger/Ray Kingsley 
Disk system is still under 
development. Oliger is the one 
to contact if you like to build 
your own, from kits. 

So far I haven't heard of 
any deliveries of US QL’s. 

& number of people have 
reported having problems with 
purchases from Rheeseware and 
Ramex. 


‘repairs on all T/S 
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by Andy Kosiorek 


TIMEX REPAIRS. 
At last thru the efforts of 


Ted Kynszek, we have the Timex 
Repair Service sitution cleared 
up. The Timex Little Rock 
facility is still doing factory 
computer 
products. Timex has a flat fee 
schedule for each item. Turn 
around time averages about six 
to eight weeks. 

The TS Connection in 
Cincinnati has the facilities to 
also make repairs, subject to 


parts . availability. TS 
Connection does not have any 
contractual affiliation with 
Timex Corp. In addition to 
repairs they also sell T7s 
products, new and used, and 
‘operate a Timex Sig_= on the 


Coconut BES, 513-984-8705. 


SOFTWARE 


English Micro has started a 
software games club. Members 
receive a 15% discount on games 
ordered thru EMC. 

SOFTAID - a new spectrum 
tape featuring ten games on 
sideone, and one the flip side 
the rock song "Do They Know 
It’s Christmas. Produced by 
Quicksilva, proceeds go to aid 
starving Ethiopians. 

EMC reports that the three 
most popular selling games . in 
the U.K. are: Raid Over Moscow, 


Gremlins-The Adventure, and 
Backpackers Guide to the 
Universe, Vol 1. 

LITERATURE 

The August issue of the 
L.1.S.T. newsletter published an 
excellant research paper by 
Cedric Bastiaans "On Tape 


Loading, Waveforms and Levels, 
for T/S Computers." Several 
club members have copies. 

A new book with a interesting 


title; "Translating Programs 
into T/S Basic" 190 pages, 
8,00, Available from 


“D.V.H.E. Publishers, FO Hox 
6799, Chicago, Ill. 60680. 


. Feb. 29, 1984 


Below are 3 programs for the 2X 81, TS 1C00 or TS 15C0O 
that utilize the "Scroll" effect. These can be used either 
as a Demo program to impress your friends or could be in- 
corporated into one of your programs. 


Program 1: takes a 32 uharacter messare and scrolls down- 
ward at a rate determined by the amount of delay 
in address 16550. 


Program 2: takes a 32 Character message and scrolls left at 
a rate determined by the amount of delay in 
nddress 16562. 


rrogram 3: takes a 64 Uharacter. message and scrolls left at 
a rate determined by the amount of delay in 
Address 16646. 


For Progrum 1... 


Step lA. Type in 91 (X's) as follows... 
5 REM XXX ----5 91 (X's) 
Step 1B. Type in Listing l. 
Step. 165. ~ Run - 1000 and Poke in from left to right, top 


to bottom... 

PW 05. kay ee, A fe Sey ee eeeny he, le, 
64, 35, 64-229; 4s 625 G4 197, Ly SS, 0,4 

B84, 93, 33, 130, 64, 237, 176, 205, 164, 64, 
ko, 162, 64, 64. 32,5. S4y 05.35, 16, 251, 205, 

164, 64, he, 162, 64, 17, 33% oO, 255 199% Dy 
32,-t215, 20k 


Step 1D. ° Delete Listing 1 by typing in the line number, 
then "Enter". 
Dont use "New" or you will wipe out everything. 


Step 1E. Type in Listing 2. 
For Program 2... os 
Step 2A. Type in 155 (X's) as follows... 
5 REM XXX ----5155 (X's) 
Step 2B. Type in Listing 1 and then change Line 1000 to: 
- FOR F=16580 TO 16668 
Step 2C. Run - 1000 and Poke in from left to right, top 


to bottom... 

hy 0, 20,-Bhs 2206 VI7y Ses eods 201, Soe 250) 
64, 39, Able Oy, 15 525 Oper LPO. Fey Le4 

64, 17, 75, 1, 25, 34, 194, 64, 84, 93, 33, 162, 
64, 2, 32, 0, 257, °2176,. 20557296, 64,35, 162, 

64. 70, T20, 50, 1955 G4) 355 24, Shes 0y 2575 92, 
TO. (GH. 92395 176.,° 205;,. 1965. OF, 1,525 0, 42, 

194... G4, 27, 1625 Ge 257 176, ey 375 64, 124, 
2545525934) Sey. 215, 225, COA CeO Ve Des 205, 201 


Step dD. Delete Listing!1 ty typing in the line number, 
then "Enter". 
Dont use "New'? or you will wipe out everything. 
Step 2E. Type in Listing e. 


Step 2F. Change Line 70; Listing 2; to: 
70 RAND USR 16559 


YP ee ee eo Le ee eee | 


For Frogram 3... 


Step 3A. 


Step 33. 


Step 3C. 


Step 3D. 


Step 35. ' 


Step 3F. 


Listing 1 


Type in 274 (X's) as follows... 
5 REM XXX cae 274 (X's) 


Type in Listing 1 and then change line 10CO to: 
1000 FOR F=16644 To 16787 


Run - 1000 and Poke in from left to right, top 
to bottom... 
1, 0, 20,0 125.120, 2775 Ses -e5h 201, 33, 130, 
64, 17, 194, 64, 1, 64, O, 237, 176, 42, 12, 
Gli. LPs 754 de OOG Tha 247 BOs C4 B95 99h Lg, 
Gh; ay 32, O98 C52 176g 2095. 4 591-59 194, 
64, 70, 120, 50, 1, 65, 35, 1, 32, 0, 237, D1, 
2, 65, 237, 176, 205, 4, 65, 43, 84, 93, 1, 
31. 0, 354 2375 1765. Lv Bey Oa, Bey Po, 054-37; 
194, 6%, 237, 176; 42; 37, G4, 17, 2535 -e5ry 
229, 172% 2375 82, 32, 14, 564 6, 65, 60, 25k, 
60. 4B, 6, 225; 56,.6,° 65, 25% £66, 2255. 175 
253, 239, 229, 175, 237, 82, 32, 14, 58, 6, 65, 
61, Bois Vy S65 by 2254 505. 67 G5) 245. 2025 
225, 17, 223, 253, 175, 237, 82, 32, 155, 201 
Delete Listing 1 by typing in the line number, 


then "Enter", 

Dont use "New'' or you will wipe out everythine. 

Type in Listing 2. 

Change Line 40; Listing 2; to: 40 FOR F=1 TO 64 
and 

Change Line 70 to: 70 RAND USR 16653 


Listing 2 


1000 FOR F=1654&8 TO 16604 10 PRINT AT 21, O;"ENTER 
1010 INFUT I MESSAGE?" 
1020 FOKE F, I 20 INPUT A$ 
1030 SCROLL 30 CLS 
1040 PRIKT F; TAB 63 PEEK F 40 FOR F=1 TO 32 : 
1050 NEXT F SO POKE (16513+F), VAL STRS$ 
(CODE A$(F)) 
60 WEXT F 
70 RAND USR 16557 
80 STOP 
NOTES: 
1. When you enter any message, fill up any remaining gaps 


Thants Thee! Tlext month we with have 


with "spaces". 
++€+ wy NAME IS BOB 


enter 1& sraces 


"IProgram 2: 
enter 50 spaces 


Program 3: 


eae 


For Program 3, to make the display run slower, 
press "S". 
For Program 3, 
press "F", 
To stop the programs, simply press "P", 


If you desire a breakdown of the Machine-Code 


to make the display run faster, 


anothen dine program 


Adon the 160071580. $t wilt be “NETRIC CONVERTER” 


4 


J 


COSINE SURFACE By T-A-Knyszek 


Converted from APPLE II to TS—20658 


3 REN COSINE-SURFACE--------- 
1@ LET CX=128: LET CY=83 
28 LET RHO=88: LET D=758 
‘30 LET THETA=.4: LET Sil= SIN (THETA): LET Cl= COS (THETA) 
49 LET PHI=1.25: LET S2= SIN (PHI): LET C2= COS (PHI) 
o@ DEF FN Z(x)= COS (. O68 ((x#xX) +(¥"Y))) 
58 DIM K(2B1): DIM T(281) 
7B FOR T=1 TO 280: LET K(1)=191: NEXT J 
8 REM POINT GENERATING LOOP-- 
98 FOR X=22 TO -55 STEP -1 
188 LET FL=8 
118 FOR Y=-48 TO 19 
120 LET 2= FN Z{X) 
130 GO SUB 198 
140 NEXT Ys NEXT X 
158 REM COLOR------------------ 
160 PLOT 8,8: DRAW 0,175: DRAW 255,8: DRAW 8,-175: DRAW -255,8 
178 STOP 
188 REM PLOTTING SUBROUTINE---- 
198 LET XE=-X#G1+Y#C1 
208 LET YE=-X#C1+02-¥#S1#C2+7#52 
210 LET ZE=-X#524C1-¥#S2#51-2#C2+RHO 
228 LET SX=D#(XE/2E) +CX 
230 LET SY=D#(YE/ZE) +CY 


Thants Jed! TAA 34 a neat beauty! 


240) IF FL=@ THEN LET FL=1: LET F=@: 60 10 3 
259 LET DX=OX-SX: IF DX=@ THEN LET DX=1 

268 LET SL=(OY-SY)/DX: LET YP=QY 

278 FOR P= INT (OX)+1 TO Sk 

288 LET F6=1 

298 LET YP=YP+SL 


8 


308 IF P<B OR P>255 THEN LET F6=0: LET F=8: GO 10 358 


310 IF YP>175 OR YP<@ THEN LET FG=8: LET F=8 
328 IF YP <= K(P+1) THEN 60 10 378 
330 IF YP >= T(P+i) THEN 60 10 428 
348 LET F=8 

358 NEXT P 

368 LET OX=SX: LET OY=SY; RETURN 
378 LET K(P+1)=YP 

380 IF FG=8 THEN GO 10 418 

398 IF F=Q THEN PLOT P,YP: LET Fel 
408 PLOT P,YP 

AlQ IF YP<T(P+1) THEN 60 TD 358 
428 LET T(P+1)=YP 

438 IF FG=0 THEN GO TO 468 

440 IF FeO THEN PLOT P,YP: LET Fel 
458 PLOT P,YP 

458 G0 T0 350 


4 dnow that may witt dove it! 


& 


. Call Tom or me for details! TOM- 928-7910, He- 661-4105 


FLASH! I got a call from Toa and he says that there is going to be a coaputer and electronics show in Akron at Quaker Square! We will be there to try to prove 


that T/S users still exist! Why not coge down and join us? It is to be on Aug, 24 & 25 


a&~. 


THE GLIVETTI FR23G3 PRINTER 


The Glivetti printer is an ink jet printer that is available 
froa [4K in California as a close out, [ first say this printer 
at a trade show in Chicago several years ago, The quality and 
relative quietness of the machine ineressed ma, The printer uses 
a 7e7dot matrix and prints bi-directionally at a rate Of about 
{4A characters par second or a littie over a line a second, The 
ink comes in a glass ampule through hich an electric Spark 
earries the ink to the paper, Tf you turn out the lights you can 
watch the spark race across the paper and it may remind you oF 
the old ZX printer, When you have finished printing you will 
notice a trace of ozone in the air, The printer has the 
aapability of using bit mapped graphics and can produce a 
horizontal resolution of 449 dots fer inch horizontally amd 4 
yertical resolution of 245 dots per inch, On the negative side 
the character se@t i3 an unisual one and may not be a5 robust a5 
soma might prefer, [talics are not supparted in the firmware and 
since it is mot an impact printer carbons are out of the 
question, [ had to Tetum amy first printer because of an 
intermittent problea in the circuitry, f telephone call to 
Docubel-Glivetti’s office in Texas produced results that were 
Similar 33 if [ had mob called, DAK replaced the unit and 
precaution ] ordered the service manual far the printer, The 
Randal seems to provided everything a sodd manual should and may 
y depantmert except for ordering 
belieyva this printer to be an 


as 4 


¥ 
Pai 


an ocessional part, fverall 
extellent value for $298, 


preclude using the Texas repa 
+ 
i 


THE RERCO CENTRONICS INTERFACE 


After having purchased a large printer [ had to decide upon the 
printer interface, | purchased the ferco because the printer 
driver software Supported my printer (Glivetti) and because they 
were supporting their interface, The Tasword J] pokes were 
altaady known to (te afd Gerco has available the pokes to use 
with the Spectrum version of this program, After ordering J 
Tecievad the interface within a week, The interface is a bare 
beard vith the cable covering the face of the board, The board 
itself seemed to ba wall made and the components had mot been 
tampered with like having their mumbers scraped off so that 
future Taelacement would not be impossible, The documantation o¢ 
the program Case with a logic diagram with the pinouts marked, | 
Tequastad software to run with Spectrum programs and reciayed 
two driver programs, The first works only with the 2068, and the 
second works with both the 2668 and Spectrum and is relocatable 
in memory, T have used the former more frequently than the 
latter as [ have rot pasolved a glitch with screen dumps in the 
relocatable version, The price of $69, is mot cheap but the 
sOfkuara and the support available seam worth it, 


Thoras 5imcn Thanks, Tom! This is from Toa’s printer. 


folder butt 


I found this in my 


there was no name on it. If yor 
wrote it, let me know you 
deserve to be recognized! 
There is a computer magazine caller 
Computer Smyth. It is new. They reviel 


micro assembly kits and feature do i° 
yourself projects. It is publishe 
quarterly for $15 a year. The address i: 
FO BOX 176, Fetterborough, NY, 03458. 


Rheesware has several periferals tha 
may be of interest such as serial o 
Centronics interface that plugs into th 
2068’s joystick port and a Koala Pa 
interface and Analog pointer adapte 
which will support the Radio Shack mous 
and joysticks. Write to them at: 1660 S 
Duneville Rd., Las Vegas, NV. 87102. 


Try this far the 2068. Thie 
Address is used to Select the 
Permanent colors for the screen, 
If could be useful in your pra- 
9Qraming. Line ES sete the ecreen 
FOr White paper and black ink. 
If this i383 4 YF you Will Have the 
Oposite., Anything over LEY will 
be Flashing. IF you lLoak mare 
closely you wilh see that the 
First & Lines are with the 
BRIGHT off. Then the next 2 it 
15 on. The Ord and 4th are 
Flashing, but the Ord has the 
BRIGHT off, and the 4th has it 
aon. 
What this boils down to is we 
can change the the current 
colors that are being printed ta 
the screen, The address: 23695, 
is Like any other byte, that it, 
8S bits. The bits areé used 45 
Follows, 

19 FOR m=8 To 255 

20 POKE 25593.n7 

SQ PRINT "“<"; 

40 NEXT ni 

SO POKE 23593,120a 
BITS from mast Significant to 
Least Significant: re 
Sth (125) To determine if FLASH 
Sere. es ofrrpi@i,. 
‘rin: ledy 0 determ e rF BRIGHT 
me OH ee serial. eG 
Sth. Sth, & dth: (32, 16, m4 Ts 
for the PAPER color. oh 
wid, 2Cd, & lst: (4, 2B, Is far 
te Ine eee a wee 


-1TO make this c Yau JUS t 
have to cememb 
Multiply the F Cl Ob ea) mY 
125. 
MubLtiptly the & Cl or 3 BY 
Sd. par 
Multiply the F: Q@ - F3 by &. S&S 
How add these and add 7a a 
it the INK (a rs] ore) 
E ae 
For example: I want oon as s 
to be green, 4 to be blue, wo 
then wou wauld 25692,25. Come 
IMNK= lfbiues FA je lgreensd425) c Hac 
BRIGHT =8 (6440) =6(1258+0). oa 
Thus: 84843241 Easy? Well, cS -ypm 
not at first b could make i B38 
it posible ta your colors oe 
€easily in on rhy shori o as £ 
routine. Try ti} ra Yuen 
186 REM I=INK usa 9% 
20 REM P=PAPER q we 
30 REM F=FLASH = a w 
490 PEM B=BRIGH 3 eo 
SOQ INPUT “INKT'S DT: LF Lae THE? my 
GOTO 5a 3 SoS 
66 INPUT F P+}? THEN 3 o 6 
BOTO 6a a wce 
7OQ INPUT F Fei THEN a a 
BOTS ve 3 EeEu+ 
2O INPUT iP By 2 . en 
TREN GOTS a ‘+ > U 
90 LET A 4) 4+(P 2342 a Ane 
168 PORE 5 of 
118 PRINT a. rate er 
128 soTO = saat 
© y ouwv 
AS you can if ov set up O Ones 
the 4 wWariabl tB, Ps: Tj it ‘ Pee, SS 
is posible ta ange the colors w eas 
that are to be vted next by just & 
one aor two Lines! (line OO is the i 
kKeuls Webh, HAVE FUN! Let me 
Know if this has helped you any. 
Iowould also Like to 588 some 
one write an article of this 
type ta help us with other 
Little Rn aun things Such as 
this. 
SESXEHFHSH PRINT °° % H¥HFFEEHFFEEFE 
GIVES LINE FEED TO PRINT 
STATEMENT. 
| eet dana Does Q FFF EFTE 
=e =. 9 BSEsTO co 7 
LIT tLe GOOLE LES is POKE 29551/% (u=1 10 35) x23 
FOR THE 2868 DOUN BEFORE TT REPEATS, PREFER 
by George Hackridge EDITION 3 10-15 FOR TEXT. 
The following “little goodies” ¥## POKE 22562,8 (t= 43 
are P,sobteciion, Df tips. ates: DELAY BETUEEN SUCCESSIVE REPEATS 
prove pets rut in SC hana ae ee OF A KEY HELD DOUN. 3 FOR TEXT. 
ing. Specia anks 5 2 j 
Pteriga ang STUcL ME A? une HALSAUEE ERAGET OUP OF obese 
TIHEL INEZ is in Northern ara INFINITE INPUT LOOP W/O CRASHING 
eir hetp, fF you hav re 
“little goodie" to share. please pie PRINT Ar oO; OVER 1; ae 
send it along and we wili add it PAPER 1; INK’ 6; AS | #344 
ta the next edition. THANKS ALLOWS YOU TO CHANGE PAPER AND — 
Plo, BOX 1312 INK COLOR W/O CLEARING SCRREEN. 
PACIFICA, CA 94044 ¥¥¥#% PRINT Bij AT 0,2; "HI" x 
iik432% POKE 2O609,x saazee45453 asia pause Be eS 
EYROARD CLICK (x= 1 toe 255) PRINTS ON LINES 22 AND 23. 
FXFFFFEX POKE 22592,2 435434 ee 
USE BEFORE EVERY PRINT FoR AUTO. biseess RAND Usk 35792 bis 


MATIC SCROLLING. VORKS LIKE THE 
SCROLL COMMAND ON THE 1028071500. 


HXSHEFE POKE 
ANOTHER UAY TO 
SCROLLS 22 LIN 
MUST BE PRESSE 


FXEHE% POKE 
PUT 20863 IN 


He*X44 POKE 
TAKE 


22592,1 £4 e4eeeeae 
CONTROL SCROLL. 
5S, THEN A KEY 

POR EVERY LINE, 


ail ad a 


ae 
23 
a 


PererreTere se 


653 
OF PS MODE. 


Pal 
23 
2263 OUT 
H#F4FHF42 PAL 


PAUSE UNTIL. EFF HHHFF SHEETS 


EY PRESSED. 


= 
oo 
are 


ANY 


xO 


FOR PROGRAMS THAT VILL NOT LOAD. 


#*% LET X=INT(x#10ty+.5) s1Qty *%% 
USE FOR ROUNDING. x=NO. TO BE 
ROUNDED. y=NG. OF DEC. 


1 DEF FN rix,y) =INT 
S)silaty 

INPUT “Enter a mumber "; 
INPUT “Round off to? “jb 
PRINT FN rf ta,b) 

SETS THE DEFINED FUNCTION TO TH 
FORMULA USED TO ROUND OFF. a= 
NQ. BEFORE ROUNDING. b=NO. OF 
DEC. PLACES DESIRED AFTER 
ROUNDING. 


PLACES. 
(Re10ty4. 


Me 


MEHR OK 
mmcany 


+ 
+ 
4 
= 
E 


| TO USE ALL 24 LINE 


BON Bea ee Bes O08 Sete, Be RAC SED Bal ge...” cil Sede A PPS 5 Ee ae 
ef UN LT ING FO 


QN SCREEN WHEN 
INPUT. NOTE: CAN’T USE STOP Lt 
THIS METHOD, BUT CAP SHIFT 6 
WILL STOP. BUG IN SYSTEM. 
SPRINT PEER £23525+25604PEEK ec 
USE TO FIND STARTING ADDRESS. 
$# INPUT AT 22,0;AT 10,0; "inpu 
value"; 35 Ht SHG 
INPUT AT ANY POSITION ON SCREE 
¥¥44 1 FOR T=8 TO 21 
¥#¥2% 2 FOR X=a TO 31 
#444 3 LPRINT) SCREENS (1I,%) 
F¥¥* 4 NEXT x 
#¥44 5 NEXT 
COPY SCREEN Fa PRINTER WITHOUT 
USING COPY COHRANC. 


HEHE LHHH 


DESTIN 


FHEHEee OPEN BE,"P" 
SENOS ALL DATA NORMALLY 


FOR THE SCREEN TO THE FRINTER. 
SF4EEEt CLOSE| HS 42KFHFEFFFEETE 
CANCELS ABOVE COMMANC. 
% 1 LET C=e2 + 
* 2@ FOR IT=Ge TO 255 - 
* 3 PRINT AT 2,9,"" + 
% 4 PRINT AT 8,2;CHRS I_ - 
* 5 IF Cape SCREENS (0,0) =O TH 
PRINT AT 4,0;CHRS I: LET C 
Cte 4 
* 6 NEXT I + 
LISTS CHARACTERS NOT RECOGNIZE 
BY THE SCREENS COMMAND. 
SXESEHEE CLEAR GSSSS F$F4EHEHHH 
DO THIS FIRST IF YOU FLAN TO U 
UDG’s IN A LGNS BASIC FROGRAN 
THAT WILL INCORPORATE A VIDEO 
MODE CHANGE. A BUG IN THE SYST 
WILL ALLOW A LONG BRSIC PROGRA 
TQ QUERYRITE YOUR UDG’s IF 


RAMTOP IS NOT FIRST LOWERED. 


¥XEFEXEX POKE EFQ7S5SO,0 FH FHEHHH 
IF YOU ARE USING CARTRIOGE Set 
THAT CAN BE STOPPED BY THE BRE 
KEY, THIS WILL ALLOU YOU TO 
ENTER YOUR ON BASIC LINES INT 
RAM. TO RETURN TO THE CARTRIDCG 
ROHMWVARE, POKE 23750,123. 


SE4Ett4 
INK COL 


$XF¢EHt% POKE 23693,56 
TQ GIVE STARTING PAPER,’ 
AT 256710 +44 

HFEHEHEH 


HFFHFEEEE CAPS z 
So LISTIN 


SHIFT 2 
SCROLL TWO SOREED 


WS WHEN 
tet FHH4 
e5711,1 


FXEXEEE# POKE 26711,0 
GIVES LINE No, @. POKE 
TO CHANGE LINE @ TO 1. 


OQ £44442 
(make 

POKE 2365 
“INKEYS" 


HXFHEXEX POKE eebSs* 
program Gnstopesle 2 
eB resets. (Use with 
only, INPUT resets.) 


S444 H4424 POKE 26710,255 444434 
USE TO MAKE LINES DISAPPEAR 

(Makes line No. aver 
POKE 2671@,@ WILL RESET. 


OR PAPER OQ +4444 
BASE cCOoOLoR. 


FHEHXEHEH INK 
GIVES CONTRASTING 


“E’ HODE’CAPS SHIFT +++ 
AND A COLOR 1 - F #4 
INK COLOR IN LISTING. 


°E’ MODESUNSHIFTED ++##+* 
#44 AND A COLOR 1 - TFT 4#4% 
GIVES PAPER COLOR (90 back to 

original color at the end of t 
line, if mot, all the Lines wi 
be the Same color.) 


¥# 2 INPUT “COMMENT”; AS; CHRS 
“COMMENT; BS 

PRINT “COHHMENT"; AS; CHRS 

“COMMENT "; BS 

EXAMPLE OF DOUBLE INFUTS, 


9802 FOR I=i1 TO e200 

S813 BORDER 1:B0RDER 2: 
BORDER OG: BORDER 4:BQRDER 6S: 
BORDER 6; BORDER ©:PAUSE 1 
¥¥ 9822 NEXT IT: RETURN 
GOSUB S888 FOR A STRIPED BORDE 


FEELE 
FEFEE 


GIVES 


EXEEE 


pa) 
= 


tt 


+t 
tt 


HX*¥XFFF% POKE 23617,.235 444444 
USE TQ GET A QUESTION MARK 
CURSOR IN INPUT STATEMENTS. 


*¥* PRINT Rei 
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tobe Mel AD wood Fo“ hd wood oa bed ta Bm Ld Wied tim Bm la Bd sed OES Bd ee Ot in Ml) m= rt Bila Led wed Mid tel font 


me 
| ron on kd 


Ty 19 Bow ft FG WS Fal Fant Wed Sai ao a en ne Se oh eee Wea 
es toa Bed Bed Ba, Med rai a lie wt lnc Gy tied end = Frles Sv sol il Geel Get Wed feel i Lad Nib cet LL ra fe fat Cla ca, WD OWL Bd a ed 
ee ine eee Oe a ee oe Bon Bs Coed Goud Bot KI NTT iG im FON I Gl os CNP ind toed En WA hag Bed Bes OL 


Md oe EE Ml se ha Pa we 
Ld er 


mod 
aes o 
Und B= C0 Ba Oy wd Lad Fo = Ch) Ew 


Une or Our neW members, HL OCOLCIS, “THEN SRUVUE “SE PE“ LINE Geos gj 
gave me a copy of this program. IF 9690S CLS po tg ee 
you want to have any of these extra | 
aan 
3 type styles, then you can add S808 SIGP _ecay noe 
; . | foe See ee hd aureus 0 scatters 3 oS rar 
this short eo. Peed on ghee eRe ace: = 
0 ; Beeal am: ave given S091 LET typ=2: PCKE 236415,3: FO 
you two listings. The First is as I KE 23619,39: POKE 255229,2 
7 ; 2 2, cS _ aT . —_ ei r 24 — _ —_— —_ ot. os 
got it. The second is a revision Sere Lek Tapes Eke Seen er 
. HE 23618,30: Po 2o523,e2 
that I made. It is shorter and Q6G5 LET tup=$8- BHEGHICGE USR ft 
takes only 9 lines. On the’ second . Ore ses et en PCKE 23687 ,targ— 
ve ‘ 3 ‘ 4: RETURN 
rsion, in line 9995 you may leave 9694 LET TYPE=9994: LET torg=255 
off the INPUT statement and have : CLERR (255zterg—-769): LEY torg 
the GOTO any line you want in your =255: LET reg=S898: LET bid=ses% 
: LET mod=S052: LET itatls=85ea: 6b 
OWn program so that you can add ofr ET REG=2808: LET BSLE-eogei: LEY 
MERGE this into any BASIC program. OD=S59e: LET ITAL=980s 
i co rEPap 3 xs mo Fre m €- OSES 
You must be careful if you use this Der amr yeny eo Cea aaa 
: 7 ; : ov Like 23,n1 F . = aArerit: 
with any program using machine code Enter TYPE that you ant: 
as it pokes 793 addresses of its Gee Geen ee 2“;7Z: GO SUB =z: 
G esas 
oun. AS you can see from the S805 DATA 2,2,121,263,39,283,39, 
examples, this makes the printing 56 ,21,255,33,8,51,17,68,ta0r3—-2 
on the 2040 very nice BUT! What you 320 PHB 0d steer ae so 
- poe, 4 OCU, i get, of, ifi,coe, fs 
see here is also on the SCREEN! So $5 ,59,58,48,555,126,24,58,54,25, 
you can intermix the different 24,15,54,14,24,14,24,223,24,35,23 
t es bit ,2,288 ,53,283,53 ,24,16,225 ,55,25 
Yp any way you sa he ie ty 389,24 4,183,203 ,35 ,182,18,25,4 
ul es ” urUuy i panes, iff ,Ue,aSo,c 
gees STOP ABCDEFGHIUKLMNOPORSTUUUXYZ. . =?=+4 
SG23 PGKE 23587,52: RETURN ABCDEFEHIGK HNGPRRSTUVURYSZ. ,»,=7=+ 
Ged LET tups2: POKE 23615,118: | HBCOEPGHIVUHLMNODPSRSTUVUKYES. . $TS+ 
PCKE 23619,35: POKE 23523,2 ° | SEOREF RST ONL MNGSAPSTINSUNY SD. | BP St 
Q325 LET tup=i: wwe OAS . i 
aoe2 LET ge Et: /POKE 23615110: Tom Jennens sent this to me. Lt 
O326 LET tgp2@: RANDONIGE GSR tt was given to him by BOB GQUAN. 
— : =. . von ts 
Orgz2S4+2-typ): PGKE 2asa7,tors— THANKS Bob! If you got the 
a- STi ima in ST, 
Soon oon ok . oat *"MONITOR” program from Tom or 
CLEAR (25Sz £1 foeg ss out of the book: Inside the, T/5 
255: LET reg -5uDa- 2000 by J. Naylor & OD. Rogers, 
= 7 ‘or tad - ane — : . ° 
Be ics beige itat=ss25: LE then add this to it. 
-Q595-. i=; ifr mo Hdditian ta 
D=SSe2e5 2s 2 G25 MORI TT GO 
9031 FGR i=-8 T : READ k: POKE GET 
(i¢256ztorg), EXT i S57: | From INSID HE 
SS8e2 DATA 3,3, 1,283 ,3¢c 23a BE sane - Hae : ah 
= n pete Sp eas pw, SYS COHRPU bY 
O6,21,255,035,8,51,17,8,tars—2 Ragers ong = 
SC8S DATA 1,8,3,125,24,48,2233,59 ROGEers BEg ss 
s24 ,44 , 258,132 ,24,397,181,232,7,2 TO AD AuUTOHATTI: 
3 ,39,58,48,255,125,24,38,24,28, rs ee. 
24,15 ,24,14,24,14,24,28,24,18,24 By Bob & 
22,286,090 ,283,53,24,18,285,39,22 5 c ne Saon« 
$,38,24,4,183,285,36,182,18,35,1 Ge eee ee 
9,11,128,177,32,166, 261 | SQ20>LET ag=z5: GO 
9034 RESTORE SSG2: BORDER 6- PAP Lan: LET a=n: GO 5 
ER 6: INK 8: CLS : PGKE 23527,52 | T tet bp a: yee EE 
SCS8S PRINT AT &,1:“SETYPE offers + CHAHGE Ss FRO 
YOU a Choise of"; TRB 8; “four ty | D TO "END SDDRES 
pe styules’’’TSR 42; “Resutar"’? sitet See Fe eS 
$886 G0 SUB bLld SO38>LET a$="LENGTH Oo 
QCS7 PRIN TRE 1D:"BoaLe u SUB 2a: LET 2=2n: i = 
9688 GD SUB mod : SUB 5@: PRINT AT 8,2; *Lenath af 
S¢8° PRINT THB 12; “Modern” blocks" jas See ee 
Sse CO SUB ital GOSE+LET a3s"END ADDRESS” = = 
9691 PRINT TAB 12;“Itatlics"** B 200: LET sen: LET air: go sue" 
gcag2 60 SUB res ! 50: PRINT AT @ 2; "Length fe ceoe 
9693 PRINT THB 4;"To choose your ha". pas deie Boast ieee 
type style"; TAB 4; “after leavin | Then chan 
9 this Screen’’’;, TRE 6; "Press £3 aan" tas 
DUB RES“; TAB $; “ar COSUB BLDO“;7TR 3O303LET | 
BoO;)“or SOSUB HOD"; TAB S;"or 6a5 B 208. LE 
UB ITTRL"°’TRE 2; "Press C ta copy SUB 50 p 
this screen’ ’TAB 2; "Press anu black=""°: 
other &ey to exit” lgrucest oc. 
9094 IF INKEY$="" THEN GO TO 939 AUTOMATIC 
ade L HODE 
HE ABD 
9605 GO 5 
aco; SAVE 
3 FL ie 
62 7 


ee ee 


AUGUST >>>>>>>>>> NOTES FROM THE EDITOR ond ABS <<<<<<<<<_ AUGUST > ~ 


Hetie ta ALL! $ Aepe youn month has gene wett! Mine has 
been nathen trying! } stitt don’t have my can back and it Lererk As 
hite bowen’ t get it untit. fate this month! Toast weeb b Aent gut 
quite a few fettens te many of the companies that ane cunnentiny 


adventiAing in Auch magazines a4 SUM, JS Honigons, £.4.4.7. and 
none. } am hoping that they with be intenested in placing thein 
ads in wun newsfetten afAe! | feed that oun nates ane veEny 
reasonable. ($25-page, $15-1/2 page, $18-1/4, $7-1/8 on esas? 4} 
hove atda been trying te centact any membens that ane 


neconds but ane not neceiving the RANTOP. Tet me tet 


. é “ » y o — 
that’ A ne 2aAry thing! Cun reconds Ahew that we have close 
» > " Pos { - " 
membenAs but Aone have bought biggen and } guess they 
é SP A mS 2 = Poo 4 =, 
batten computens CWe énew better! >. 30 in actuatity we one 


4 op 2 fr = ba 
the anea of 158. Not aff af ane active. Cneceiving 


newsAbetten) + Aune hope that 14 you hove any friends with Timex 
on 3Binctain cemputens that you bring Con drag? then te a 
meeting! Cun fomify of wrend i4 ALIAA im oneat mumbens and fan. 
oun own good, we betten deep it that way! In the past few ments 
we have onewn quite a bit too! We one mailing to wen 1a 
ditlenent usen gneups and te oven 16 different states! Us } tated 
you fost month, we wene in Cnones thevetand Business Magazine! 
Zince then we ane AtILE gnowing! $4 wor brought up at the guby 
Weat Aide meeting that Dick Seig would tite us to fonm a beard 
of Dinectans. $ deed this iA a goed idea. 4 mysedé would fike to 
be on the boand. Ondy Kesione® afss has vetunteened. $ feed that 
we should have at feast 1 mane on the West Aide and 2 on the 


faca ‘ 2 q a 2 7 > ae » Qi. 2 9 F 
Saat Aide. $2 you ane iIntenested, catf Dick Seig. We witt 


Fc Siena 3 


discuss this mane at the next meeting. 4 
Last month I got a couple of cards from Joan Kealy. She is a > 
one of our out of state members.(Texas) She sent me a WANT AD wioy 
For the following: 1- She has the Tasman SERIAL interface and a 3 a 
Gorilla Banana SERIAL printer. She is having a problem trying to 3+ 
get Tasword II and Tasprint to work. If any of you can give her oat 
ANY advise either send her a letter to: Joan Kealy, 1750 Lee 24 
Travino #2B, El Paso, Texas, 79936 or give me a call and I will od br 
pass it on myself. 2@- She has also asked a good question. That .sij 2 
is: "How do you use the function of VALS and what is it good se Mer 
for?” I have had 2 answers so far. Max Schoenfeld wrote to me a ea 
and said that he didn’t have a good answer but he did find that ™ 3 
in the book "The Complete Spectrum”, on page 78, was this: The v 
last group consists of the instruction VALS, which no one see a. 
appears to have found a use for up to date. Paul Banisik had a 0% 
this to say: "VALS does the same thing that VAL does except that ¢ => 
the string variable must be enclosed in quotes and it is- not. a 
evaluated; rather, it is printed out. VALS has no mathematical % \ 
use.” Well, Joan, I hope this is of some help to you. I. would < ae 
also suggest that you write to Tasman in England. about your §g 2} 
a 


iO interface problem. If you need the address, I will try to get it bk» 
For yOu. Till next month, TAKE CARE!!! James G. DuPuy 


hUYUYU LYUYYI ON es PoOUPSLY-: Se ae uLwu re ed 


“programs just for you! I am giving 
them to yo just as I got them. I wish 
the creator of these would let me know 
so I can give him/her recognition!!! 
In the future, please put your name in 
the line listing or at least somewhere 
on the same sheet so we know who you 
are! Cunless you don’t want toa) THANKS! 
Whoever you are! 
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oul et 
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B oF 
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2 LF 


a0 
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Fe 
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= 45 THEN Go 


CTT pete be be fe Cd pace es pete bs 


Css J CTT f= 
Ronin LolLolstolel sl oiclan tarot t 


ate 
Iri-l 


Ph 1 b> 


na 


a pe 


tr 


fe 
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hots 
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is 


ZA 


vaca « bette: 
x fe SL 

a RE 

1G FR Pear 
15 FAST 

2@Q IHFPUT AS 

2S CLS 

2Q PRINT AS 

40 FPRIWT AT 2 EWN 

O LFPRIHNT .2 To 
D, 3 TO START & se 

45 SL 

BG IF INREYS= EM 
68 IF INREYS= HE 
Fe ITF INKREYS$=° HE 
G8 IF INKEYs=" HE 
S30 IF INKEYs=" HE 
S52 GOTO 58 

190 LPRIWT 

118 GoTo : 

HOG FAST 

Bis CLs 

SiG PRI iT 28,8)" 

THEN PRE: CHTER" 

BES FPARUS Ed 7 

Bd SAWE YVRESEs3" 

B50 GoTo 

SOQ ELS 

if RU 


FOR A GS STEP 5 
FoR 
EE ak 
PRINT D 
FOR 6B ais 
PRINT = 
PRINT s 
1} 126 
a be 
HET 
A HEXT 
1Q@0 FAUSE 
A PORE 
a Be 
HE 
FPR WL 
iE BBS 1s GALM 
I DOH? To 
G PRI = ON 
oD L INE 


Here are three Fine programs from someor 


who CARES! As you well know, 
ARTICLES! Sa, PLEASE PLEASE! !! 
YOUR ARTICLES TO ME! My address 


James G. DuPuy 
6514 Bradley Ave. (DOWN) 
Parma, OH 44129 
Phone: 661-4195 


WE NEED YOU 
SEN 


is 


Lf 


Here is a program for the 2068. It uses the 1011 LET t=LiF: LET h=91: 50 WA .* 


SOUND command. If you have MCI, SFRINT or ae REM E 
any of the long distance services, you know =oa5 io SUS 2010: eo TO 2189 4 
that you have to dial the local access 2010 oe + eae cee ae 
number then with TOUCH TONE you must dial Sere ee er cae 
2015 LE / =) 5 
your access code, area code and finally the 2020 FOR j=l Tit ees Sp gtd ae 
‘phone number. This program will dial in true 2630 — Aer BE Na @ay deo S SERRA SEs 
TONES! It also has a 20 number memory and : ~ =" " THEN 
REDIAL! (nice when you get a busy signal!) 
I’m sure that it will work on the bank sasc g 
sevices too! To get the # and * just hold 2100 IF v=2@ THEN PRINT MNO HUMES 
down the SS and push the 3 or B keys. To use | SC ee ee YET.": PAUSE 128: be 
you must have the mic of the phone right at a ee ae “HUHICH t TO DIAL? i" 
the 2068 speaker. G@: IF @:28 OF &<l THEN GO TO Bil 
a + . a THEN 
5 DIN a8f20,38): B 6$(28,19 2120 IF Ag tai =" = a} 
= et tee See PRINT “ND # AT “;O: PAUSE 1282: 
10 REM ESE SS 60 TO 1s 
BSS | 2130 PRINT Bstai;" - "3 
11 BORDER 6&5 2146 LET Rs=Aas ti 
| 12 CLS : PRINT FLASH 1;" 2159 GO TO 4865 _ 
FO. Nee PIALER i , 3680 REM ae = 
| 14 PRINT ‘’"@8 - 9,%,% TO DIAL O16 60 tty lay G5e 
MANUALY' "RR --- TG REDIAL LAST N 2625 INPUT GHTE H # ee STORE is Sat 
UMBER"’"S --- TO STGRE A NUMBER" OQ: IF @>20 GR O<1 THEN GO TO 382 
““M --- TO DIAL FROM MEMORY" "SC a 2 
--- TO CLEAR REDIAL"’"S AND cAP 3030 PRINT 3; _ " nO, 
| SHIFT TO SAVE TO TAPE"*’" WITH T 3040 INPUT “NAME? :"; LINE Bia: 
HE NUMBERS IN THE MEMORY" * * : IF bstqis" THEN GO 
1. LET: ee TO 3edea ¥ 
15 PORK 3692,16 BOS PRINT oe Oe g Pe aie 
20 LET n$=INKEY$: IF ng="" THE 3050 INPUT “PHONE #7 :"; LINE 23 
ee Fee | > IF LEN 2$>20 OR LEN z#<2 THEN 
22 IF ns="m'"' THEN GO TO 2609 GO TO 30568 = 
24 IF n$="s" THEN GO TO 3929 3055 LET AS{o) =25 
26 IF ng$="c" THEN GO TO 49a9 3050 PRINT AS (a3 Breda ae 
27 IF n#="c" THEN GO TO 12 3070 INPUT “C-CORRECT, ENT-OONT. 
28 IF N#="S" THEN GO TO 5999 “j;X: IF_Mg=s"c" THEN GO TO Sasa 
29 IF ng="+" OR ns="H" THEN Go SO75 GO SUB 2819: INPUT “Eeees-MEN 
eee UW, 5+ TO STORE AH o:";x8: IF x 
oO IF n#3"9" OR n#<"@" THEN &o ="s" THEN G&D TO G26 
TO 29 3080 60 TO le 
32 PRINT ns; "-"; 49890 REM RSE ay: 
3S LET ¢S=rs+n3 40902 IF INKEYS<:"" THEN GO To 48 
36 IF ns="8%" THEN GO TO 109198 a2 
oY IF ng="#" THEN GO TO 1611 4005 PRINT “REDIAL "; 
SS IF ns="p" THEN PRUSE 2 4985 FOR i=1 Ta LEN a 2 4 s 
40 GO TO VAL n4#+1¢606 aad te E% is =" THEN GO TO 482 
180 SOUND 6,1;1,6;2,h3;3,80;7,6532; 
Sy ,is;2,15 £010 IF rei) ans THEN GO SUB 18 
185 IF nas="c"“ GR nss"m" THEN BR 16: 60 TO 4825 = are 
TN FSi yee 4012 IF r$tij="=" THEN GO SUE 14 
116 IF INK LEV Cpt THEN GO TO 411 11: 60 TO 4829 ie Ne. 
Qa 4015 IF rs#tiis"p" THEN PAUSE 8 
120 PAUSE 5 BO TO 4829 
1230 SOUND 5,0;5,6;7,63 4815 GO SUB 1990+UAL rtil 
i344 IF ng="r" GR ng="m" THEN RE 4020 NEXT 1 
TURN 40925 PRINT 
140 GO TO 28 4930 GO TO 28 
1680 LET L=117: LET h=82: GO To ; eS : aye 
oe 50@5 CLS : PRINT FLASH 1; "ENTER 
16@1 LET 1t=158: LET h=91: GO TO PROGRAM NAME YOU OA 
168 N ONLY ENTER UF TO 18 CHARAC 
1982 LET 1L=155: LET h=82: GO Ta TERS." 2 
isa 5010 INPUT x%: IF LEN x$>18 OR L 
1683 LET 1L=158: LET h=75: 60 Ta EN x$<¢1 THEN GO TO S810 — © 
160 5015 CLS : PRINT AT 10,12; FLASH 
1984 LET L=145: LET h=91: GO Ta LL; "SAVING" 
102 S020 SAVE x LINE 12 
aoa” LET L=145: LET h=82: GO Tao 5638 60 TO le 
19886 LET 1=145: L hs? S F 
a0 el Regee GU TD Next month we will have a Word Process 
oer LET L=125: LET h=31: 80 Tao program for the 1000/1500. It was set 
18a 
1685S LET l=123: LET h]=82: 89 To Roy D. Zelesnik. CRoy, are you by a 
1ea chance the owner of Zelesnik’s at t 
aoe LET L=123: LET he75S: 80 To bottom of Jennings Rd.?) Next month 
1010 LET L=2ii7: LET he75: 86 TO will, as always, have lots of new 
12a reviews, programs, and LOTS more in YO 


(fQ) RAMTOP! 


